home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / cross / sasmv14.dms / sasmv14.adf / examples / localmem.s < prev    next >
Text File  |  1993-05-22  |  623b  |  24 lines
  1.  
  2. *****************************************************
  3. **
  4. ** Local Label Demo #1
  5. ** ~~~~~~~~~~~~~~~~~~~
  6. ** Will assemble till memory overflow...
  7. ** or 10 millions of local labels will be defined
  8. **
  9. ** WARNING: Assembles 30min or longer on A3000
  10. ** ~~~~~~~  It's so slow since SASM calls AllocRemember();
  11. **        I should change this...
  12. **        Guess: O(n!)<>AllocRemember();
  13. **
  14. *****************************************************
  15.  
  16.     heap    O=128            ;dont need much spare
  17.  
  18. over_ten_millions=    11111111
  19.  
  20.     .repeat    over_ten_millions {
  21. joke    set    joke+1            ;simply counter inc (needed for local lab!)
  22. .skip                    ;define one local one
  23.     }
  24.